10 REM INFOARCHIVIERER
20 REM BY ROLLING BYTE 2/94
30 POKE53280,0:POKE53281,0:PRINT"[151][147]":POKE650,128:GOTO300
40 BU$="":Z=1
45 PRINTP$+BU$+"[164] "
50 GETA$:IFA$=""THEN50
60 IFA$=""ORA$="[147]"ORA$=""ORA$="[157]"ORA$=""ORA$="[145]"THEN50
70 IFA$=CHR$(13)THENRETURN
80 IFA$=CHR$(20)ANDZ=0THEN50
90 IFA$=CHR$(20)THEN130
110 IFZ=VTHEN50
120 BU$=BU$+A$:Z=Z+1:GOTO140
130 BU$=LEFT$(BU$,Z-1):Z=Z-1
140 PRINTP$+BU$+"[164] ":GOTO50
150 X$="[176]":FORI=1TOXL:X$=X$+"[195]":NEXT:X$=X$+"[174]"
160 PRINTP$+X$
170 X$="[194]":FORI=1TOXL:X$=X$+" ":NEXT:X$=X$+"[194]"
180 FORI=1TOYL:PRINTPX$+X$:NEXT
190 X$="[173]":FORI=1TOXL:X$=X$+"[195]":NEXT:X$=X$+"[189]"
200 PRINTPX$+X$
210 RETURN
300 DIMTK$(120),HE$(120),NA$(120),NB$(120),NC$(120),OD$(120),ZE$(120),DA$(120)
310 DS=0:
320 DIMBU$(150)
330 P$="[151]":PX$="":XL=37:YL=22:GOSUB150
340 PRINT"[150]INFOARCHIVIERER
350 [153]"PRINTR O L L I N G   B Y T E  2/94POKE"
360 [153]"-LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN<"
370 P$[178]"POKE":PX$[178]"":XL[178]15:YL[178]7:[141]150
380 [153]P$[170]"DEFNEUES BLATT    LIST"
390 [153]"BEARBEITEN"
400 [153]"SUCHEN"
410 [153]"DRUCKEN"
420 [153]"LOADEN"
430 [153]"SAVEN"
440 [153]"DIRECTORY"
450 P$[178]"POKE":PX$[178]"":XL[178]15:YL[178]10
460 [141]150
470 P$[178]"":[153]"LIST"[170]P$[170]"DIE MENUPUNKTE"
480 [153]P$[170]"MIT DEN CURSOR-"
490 [153]P$[170]"TASTEN (UP/DWN)"
500 [153]P$[170]"AUSWAEHLEN !!"
510 [153]P$[170]"FUER NAEHERE ER"
520 [153]P$[170]"LAEUTERUNG -"
530 [153]P$[170]"  DEFMAGIC DISK"
540 [153]"CONT(C) CP VERLAG":Z[178]1
550 [161]A$:[139]A$[178]""[167]550
560 [139]A$[178]""[167]Z[178]Z[170]1:[137]600
570 [139]A$[178]"ON"[167]Z[178]Z[171]1:[137]600
580 [139]A$[178][199](13)[167]770
590 [137] 550
600 [139]Z[179]1[167]Z[178]1:[137]550
610 [139]Z[177]7[167]Z[178]7:[137]550
620 [153]"LISTNEUES BLATT    "
630 [153]"BEARBEITEN     "
640 [153]"SUCHEN         "
650 [153]"DRUCKEN        "
660 [153]"LOADEN         "
670 [153]"SAVEN          "
680 [153]"DIRECTORY      "
690 [153]"DEF":[145]Z[137]700,710,720,730,740,750,760,770
700 [153]"NEUES BLATT    ":[137] 550
710 [153]"BEARBEITEN     ":[137] 550
720 [153]"SUCHEN         ":[137]550
730 [153]"DRUCKEN        ":[137]550
740 [153]"LOADEN         ":[137]550
750 [153]"SAVEN          ":[137]550
760 [153]"DIRECTORY      ":[137]550
770 [145]Z[137]775,1400,2320,3920,4230,4000,4450
775 [153]"LOAD"
776 P$[178]"POKE":PX$[178]"":XL[178]37:YL[178]21:[141]150
780 [153]"DEFNEUES BLATT ANLEGEN"
790 [153]"POKE-LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN<LIST"
800 [153]"THEMENKREIS :"TK$(DS)""
810 [153]"THEMA       :"HE$(DS)""
820 [153]"NAEHERES    :"NA$(DS)
822 [153]""NB$(DS)
824 [153]""NC$(DS)""
830 [153]"ORDNER      :"OD$(DS)""
840 [153]"ZEITUNG     :"ZE$(DS)""
850 [153]"DATUM       :"DA$(DS)""
860 [153]"POKE-LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN<LIST"
870 [153]"DEFEINGABE      POKE"
880 [153]"SEITE DRUCKEN"
890 [153]"ENDE"
900 [153]"POKEONONONON="
910 [129]I[178]1[164]3:[153]"PEEK":[130]
920 [153]">"
930 [153]"ONONONBLATTZAHL:"DS:Z[178]1
940 [161]A$:[139]A$[178]""[167]940
950 [139]A$[178]""[167]Z[178]Z[170]1:[137]990
960 [139]A$[178]"ON"[167]Z[178]Z[171]1:[137]990
970 [139]A$[178][199](13)[167]1080
980 [137] 940
990 [139]Z[179]1[167]Z[178]1:[137]940
1000 [139]Z[177]3[167]Z[178]3:[137]940
1010 [153]"POKEEINGABE      "
1020 [153]"SEITE DRUCKEN"
1030 [153]"ENDE         "
1040 [153]"DEF":[145]Z[137]1050,1060,1070
1050 [153]"EINGABE      ":[137]940
1060 [153]"SEITE DRUCKEN":[137]940
1070 [153]"ENDE         ":[137]940
1080 [145]Z[137]1090,1260,330
1090 [153]"":[129]I[178]1[164]14:[153]"                      ":[130]
1095 DS[178]DS[170]1:P$[178]"":V[178]15:[141]40
1100 TK$(DS)[178]BU$:[153]P$[170]BU$[170]"  "
1110 P$[178]"":V[178]15:[141]40
1120 HE$(DS)[178]BU$:[153]P$[170]BU$[170]"  "
1130 P$[178]"":V[178]15:[141]40
1140 NA$(DS)[178]BU$:[153]P$[170]BU$[170]"  "
1145 [139]NA$(DS)[178]""[167]NA$(DS)[178]" "
1150 P$[178]"":V[178]15:[141]40
1160 NB$(DS)[178]BU$:[153]P$[170]BU$[170]"  "
1170 P$[178]"":V[178]15:[141]40
1175 [139]NB$(DS)[178]""[167]NB$(DS)[178]" "
1180 NC$(DS)[178]BU$:[153]P$[170]BU$[170]"  "
1190 P$[178]"":V[178]7:[141]40
1195 [139]NC$(DS)[178]""[167]NC$(DS)[178]" "
1200 OD$(DS)[178]BU$:[153]P$[170]BU$[170]"  "
1210 P$[178]"":V[178]12:[141]40
1220 ZE$(DS)[178]BU$:[153]P$[170]BU$[170]"  "
1230 P$[178]"":V[178]11:[141]40
1240 DA$(DS)[178]BU$:[153]P$[170]BU$[170]"  "
1250 [137] 776
1260 IX[178]DS:[141]1300
1270 [137] 775
1300 [159]4,4:[152]4:[152]4,"---------------------------------------":[152]4
1310 [152]4,"THEMENKREIS :"[170]TK$(IX):[152]4
1320 [152]4,"THEMA       :"[170]HE$(IX):[152]4
1330 [152]4,"NAEHERES    :"[170]NA$(IX)
1340 [152]4,"             "[170]NB$(IX)
1350 [152]4,"             "[170]NC$(IX):[152]4
1360 [152]4,"ORDNER      :"[170]OD$(IX):[152]4
1370 [152]4,"ZEITUNG     :"[170]ZE$(IX):[152]4
1380 [152]4,"DATUM       :"[170]DA$(IX):[152]4
1390 [152]4,"---------------------------------------":[152]4:[160]4:[142]
1400 [139]DS[178]0[167]330
1405 [153]"LOAD":P$[178]"POKE":PX$[178]"":XL[178]37:YL[178]21:[141]150
1410 [153]"DEFBLATT BEARBEITEN"
1420 [153]"POKE-LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN<LIST"
1430 [153]"THEMENKREIS :"TK$(1)""
1440 [153]"THEMA       :"HE$(1)""
1450 [153]"NAEHERES    :"NA$(1)
1460 [153]""NB$(1)
1470 [153]""NC$(1)""
1480 [153]"ORDNER      :"OD$(1)""
1490 [153]"ZEITUNG     :"ZE$(1)""
1500 [153]"DATUM       :"DA$(1)""
1510 [153]"POKE-LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN<LIST"
1530 [153]"DEFBEARBEITEN   POKE"
1540 [153]"SEITE DRUCKEN"
1550 [153]"ENDE"
1560 [153]"POKEONONONON="
1570 [129]I[178]1[164]3:[153]"PEEK":[130]
1580 [153]">"
1590 [153]"ONONON+WAIT/-WAIT BLAETTERN":Z[178]1:IX[178]1
1600 [161]A$:[139]A$[178]""[167]1600
1610 [139]A$[178]"+"[167]IX[178]IX[170]1:[137]1670
1620 [139]A$[178]"-"[167]IX[178]IX[171]1:[137]1670
1630 [139]A$[178]""[167]Z[178]Z[170]1:[137]1790
1640 [139]A$[178]"ON"[167]Z[178]Z[171]1:[137]1790
1650 [139]A$[178][199](13)[167]1860
1660 [137] 1600
1670 [139]IX[179]1[167]IX[178]1:[137]1600
1680 [139]IX[177]DS[167]IX[178]DS:[137]1600
1690 [153]"":[129]I[178]1[164]14:[153]"                      ":[130]
1695 [153]"LIST"
1700 [153]"THEMENKREIS :"TK$(IX)""
1710 [153]"THEMA       :"HE$(IX)""
1720 [153]"NAEHERES    :"NA$(IX)
1730 [153]""NB$(IX)
1740 [153]""NC$(IX)""
1750 [153]"ORDNER      :"OD$(IX)""
1760 [153]"ZEITUNG     :"ZE$(IX)""
1770 [153]"DATUM       :"DA$(IX)""
1780 [137]1600
1790 [139]Z[179]1[167]Z[178]1:[137]1600
1792 [139]Z[177]3[167]Z[178]3:[137]1600
1795 [153]"POKEBEARBEITEN   "
1800 [153]"SEITE DRUCKEN"
1810 [153]"ENDE         "
1820 [153]"DEF":[145]Z[137]1830,1840,1850
1830 [153]"BEARBEITEN   ":[137]1600
1840 [153]"SEITE DRUCKEN":[137]1600
1850 [153]"ENDE         ":[137]1600
1860 [145]Z[137]1870,2300,330
1870 [153]"DEFTHEMENKREIS":Z[178]1
1880 [161]A$:[139]A$[178]""[167]1880
1890 [139]A$[178]""[167]Z[178]Z[170]1:[137]1930
1900 [139]A$[178]"ON"[167]Z[178]Z[171]1:[137]1930
1910 [139]A$[178][199](13)[167]2130
1920 [137] 1880
1930 [139]Z[179]1[167]Z[178]1:[137]1880
1940 [139]Z[177]8[167][137]1400
1950 [153]"LIST"
1960 [153]"THEMENKREIS"
1970 [153]"THEMA"
1980 [153]"NAEHERES"
1990 [153]" "
2000 [153]" "
2010 [153]"ORDNER"
2020 [153]"ZEITUNG"
2030 [153]"DATUM"
2040 [153]"DEF":[145]Z[137]2050,2060,2070,2080,2090,2100,2110,2120
2050 [153]"THEMENKREIS":[137]1880
2060 [153]"THEMA":[137]1880
2070 [153]"NAEHERES":[137]1880
2080 [153]"*":[137]1880
2090 [153]"*":[137]1880
2100 [153]"ORDNER":[137]1880
2110 [153]"ZEITUNG":[137]1880
2120 [153]"DATUM":[137]1880
2130 [145]Z[137]2140,2160,2180,2200,2220,2240,2260,2280
2140 BU$[178]TK$(IX):P$[178]"":V[178]15:A[178]Z:Z[178][195](BU$):[141]45
2150 TK$(IX)[178]BU$:[153]P$[170]BU$[170]"  ":Z[178]A:[137]1880
2160 BU$[178]HE$(IX):P$[178]"":V[178]15:A[178]Z:Z[178][195](BU$):[141]45
2170 HE$(IX)[178]BU$:[153]P$[170]BU$[170]"  ":Z[178]A:[137]1880
2180 BU$[178]NA$(IX):P$[178]"":V[178]15:A[178]Z:Z[178][195](BU$):[141]45
2190 NA$(IX)[178]BU$:[153]P$[170]BU$[170]"  ":Z[178]A:[137]1880
2200 BU$[178]NB$(IX):P$[178]"":V[178]15:A[178]Z:Z[178][195](BU$):[141]45
2210 NB$(IX)[178]BU$:[153]P$[170]BU$[170]"  ":Z[178]A:[137]1880
2220 BU$[178]NC$(IX):P$[178]"":V[178]15:A[178]Z:Z[178][195](BU$):[141]45
2230 NC$(IX)[178]BU$:[153]P$[170]BU$[170]"  ":Z[178]A:[137]1880
2240 BU$[178]OD$(IX):P$[178]"":V[178]7:A[178]Z:Z[178][195](BU$):[141]45
2250 OD$(IX)[178]BU$:[153]P$[170]BU$[170]"  ":Z[178]A:[137]1880
2260 BU$[178]ZE$(IX):P$[178]"":V[178]12:A[178]Z:Z[178][195](BU$)
2265 [141] 45
2270 ZE$(IX)[178]BU$:[153]P$[170]BU$[170]"  ":Z[178]A:[137]1880
2280 BU$[178]DA$(IX):P$[178]"":V[178]10:A[178]Z:Z[178][195](BU$)
2285 [141] 45
2290 DA$(IX)[178]BU$:[153]P$[170]BU$[170]"  ":Z[178]A:[137]1880
2300 [141] 1300
2310 [137]1400
2320 [129]I[178]1[164]8:BU$(I)[178]"":[130]:BU$[178]""
2325 [153]"LOAD":P$[178]"POKE":PX$[178]"":XL[178]37:YL[178]21:[141]150
2330 [153]"DEF     SUCHEN    "
2340 [153]"POKE-LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN<LIST"
2350 [153]"THEMENKREIS :"BU$(1)""
2360 [153]"THEMA       :"BU$(2)""
2370 [153]"NAEHERES    :"BU$(3)""
2380 [153]""BU$(4)
2390 [153]""BU$(5)
2400 [153]"ORDNER      :"BU$(6)""
2410 [153]"ZEITUNG     :"BU$(7)""
2420 [153]"DATUM       :"BU$(8)""
2430 [153]"POKE-LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN<LIST"
2440 [153]"DEFSUCHEN       POKE"
2450 [153]"SEITE DRUCKEN"
2460 [153]"ENDE"
2470 [153]"POKEONONONON="
2480 [129]I[178]1[164]3:[153]"PEEK":[130]
2490 [153]">":Z[178]1
2500 [161]A$:[139]A$[178]""[167]2500
2510 [139]A$[178]""[167]Z[178]Z[170]1:[137]2550
2520 [139]A$[178]"ON"[167]Z[178]Z[171]1:[137]2550
2530 [139]A$[178][199](13)[167]2640
2540 [137] 2500
2550 [139]Z[179]1[167]Z[178]1:[137]2500
2560 [139]Z[177]3[167]Z[178]3:[137]2500
2570 [153]"POKESUCHEN       "
2580 [153]"SEITE DRUCKEN"
2590 [153]"ENDE         "
2600 [153]"DEF":[145]Z[137]2610,2620,2630
2610 [153]"SUCHEN       ":[137]2500
2620 [153]"SEITE DRUCKEN":[137]2500
2630 [153]"ENDE         ":[137]2500
2640 [145]Z[137]2650,3900,330
2650 P$[178]"LIST":PX$[178]"":XL[178]16:YL[178]4:[141]150
2660 [153]"DEF":[153]"EINGABE         "
2670 [153]"LISTSUCHEN ..."
2680 [153]"SEITE AUSDRUCKEN"
2690 [153]"ENDE":Z[178]1
2700 [161]A$:[139]A$[178]""[167]2700
2710 [139]A$[178]""[167]Z[178]Z[170]1:[137]2750
2720 [139]A$[178]"ON"[167]Z[178]Z[171]1:[137]2750
2730 [139]A$[178][199](13)[167]2860
2740 [137] 2700
2750 [139]Z[179]1[167]Z[178]1:[137]2700
2760 [139]Z[177]4[167]Z[178]4:[137]2700
2770 [153]"LIST":[153]"EINGABE         "
2780 [153]"SUCHEN ...      "
2790 [153]"SEITE AUSDRUCKEN"
2800 [153]"ENDE            "
2810 [153]"DEF":[145]Z[137]2820,2830,2840,2850
2820 [153]"EINGABE         ":[137]2700
2830 [153]"SUCHEN ...      ":[137]2700
2840 [153]"SEITE AUSDRUCKEN":[137]2700
2850 [153]"ENDE            ":[137]2700
2860 [145]Z[137] 2870,3080,3880,2325
2870 [153]"LIST"
2872 [153]"EINGABE         ":
2876 P$[178]"":V[178]15:A[178]Z:Z[178][195](BU$):[141]45
2880 BU$(1)[178]BU$:[153]P$[170]BU$[170]"  ":Z[178]A:BU$[178]""
2890 P$[178]"":V[178]15:A[178]Z:Z[178][195](BU$):[141]45
2900 BU$(2)[178]BU$:[153]P$[170]BU$[170]"  ":Z[178]A:BU$[178]""
2910 P$[178]"":V[178]15:A[178]Z:Z[178][195](BU$):[141]45
2920 BU$(3)[178]BU$:[153]P$[170]BU$[170]"  ":Z[178]A:BU$[178]""
2930 P$[178]"":V[178]15:A[178]Z:Z[178][195](BU$):[141]45
2940 BU$(4)[178]BU$:[153]P$[170]BU$[170]"  ":Z[178]A:BU$[178]""
2950 P$[178]"":V[178]15:A[178]Z:Z[178][195](BU$):[141]45
2960 BU$(5)[178]BU$:[153]P$[170]BU$[170]"  ":Z[178]A:BU$[178]""
2970 P$[178]"":V[178]7:A[178]Z:Z[178][195](BU$):[141]45
2980 BU$(6)[178]BU$:[153]P$[170]BU$[170]"  ":Z[178]A:BU$[178]""
2990 P$[178]"":V[178]12:A[178]Z:Z[178][195](BU$)
3000 [141] 45
3010 BU$(7)[178]BU$:[153]P$[170]BU$[170]"  ":Z[178]A:BU$[178]""
3020 P$[178]"":V[178]10:A[178]Z:Z[178][195](BU$)
3030 [141] 45
3040 BU$(8)[178]BU$:[153]P$[170]BU$[170]"  ":Z[178]A:BU$[178]""
3050 [153]"DEF"
3060 [153]"EINGABE         ":
3070 [137] 2700
3080 [139]DS[178]0[167][151]53280,1:[151]53280,0:[137]2700
3090 X[178]1
3100 [129]I[178]X[164]DS
3110 [139]BU$(1)[178]""[167]3130
3120 [139]BU$(1)[178]TK$(I)[167]X[178]I[170]1:[137]3340
3130 [139]BU$(2)[178]""[167]3150
3140 [139]BU$(2)[178]HE$(I)[167]X[178]I[170]1:[137]3370
3150 [139]BU$(3)[178]""[167]3170
3160 [139]BU$(3)[178]NA$(I)[167]X[178]I[170]1:[137]3400
3170 [139]BU$(4)[178]""[167]3190
3180 [139]BU$(4)[178]NB$(I)[167]X[178]I[170]1:[137]3430
3190 [139]BU$(5)[178]""[167]3210
3200 [139]BU$(5)[178]NC$(I)[167]X[178]I[170]1:[137]3460
3210 [139]BU$(6)[178]""[167]3230
3220 [139]BU$(6)[178]OD$(I)[167]X[178]I[170]1:[137]3490
3230 [139]BU$(7)[178]""[167]3250
3240 [139]BU$(7)[178]ZE$(I)[167]X[178]I[170]1:[137]3520
3250 [139]BU$(8)[178]""[167]3270
3260 [139]BU$(8)[178]DA$(I)[167]X[178]I[170]1:[137]3570
3270 [130]
3280 P$[178]"POKE":PX$[178]"":XL[178]10:YL[178]2:
3290 [141]150
3300 [153]P$[170]"NICHTS ZU"
3310 [153]PX$[170]"FINDEN !!"
3320 [161]A$:[139]A$[178]""[167]3320
3330 [137]2650
3340 [139]BU$(2)[178]""[167]3370
3350 [139]BU$(2)[178]HE$(I)[167]3370
3360 [137] 3560
3370 [139]BU$(3)[178]""[167]3400
3380 [139]BU$(3)[178]NA$(I)[167]3400
3390 [137] 2700
3400 [139]BU$(4)[178]""[167]3430
3410 [139]BU$(4)[178]NB$(I)[167]3430
3420 [137] 3560
3430 [139]BU$(5)[178]""[167]3460
3440 [139]BU$(5)[178]NC$(I)[167]3460
3450 [137] 3560
3460 [139]BU$(6)[178]""[167]3490
3470 [139]BU$(6)[178]OD$(I)[167]3490
3480 [137] 3560
3490 [139]BU$(7)[178]""[167]3520
3500 [139]BU$(7)[178]ZE$(I)[167]3520
3510 [137] 3560
3520 [139]BU$(8)[178]""[167]3550
3530 [139]BU$(8)[178]DA$(I)[167]3550
3540 [137] 3560
3550 [137] 3570
3560 [137] 3100
3570 BU$(1)[178]TK$(I):BU$(2)[178]HE$(I):BU$(3)[178]NA$(I):BU$(4)[178]NB$(I):BU$(5)[178]NC$(I)
3580 BU$(6)[178]OD$(I):BU$(7)[178]ZE$(I):BU$(8)[178]DA$(I):
3590 [153]"LIST":[129]I[178]1[164]13:[153]"                       ":[130]
3600 [153]""
3610 [153]""BU$(1)""
3620 [153]""BU$(2)""
3630 [153]""BU$(3)
3640 [153]""BU$(4)
3650 [153]""BU$(5)""
3660 [153]""BU$(6)""
3670 [153]""BU$(7)""
3680 [153]""BU$(8)""
3690 P$[178]"":PX$[178]"":XL[178]15:YL[178]2:[141]150
3700 [153]""[170]P$[170]"WEITER SUCHEN ?"
3710 [153]PX$[170]"    (J/N)"
3720 [161]A$:[139]A$[178]""[167]3720
3730 [139]A$[178]"J"[167]3100
3740 [139]A$[178]"N"[167]2650
3750 [137] 3720
3780 [159]4,4:[152]4:[152]4,"---------------------------------------":[152]4
3790 [152]4,"THEMENKREIS :"[170]BU$(1):[152]4
3800 [152]4,"THEMA       :"[170]BU$(2):[152]4
3810 [152]4,"NAEHERES    :"[170]BU$(3)
3820 [152]4,"             "[170]BU$(4)
3830 [152]4,"             "[170]BU$(5):[152]4
3840 [152]4,"ORDNER      :"[170]BU$(6):[152]4
3850 [152]4,"ZEITUNG     :"[170]BU$(7):[152]4
3860 [152]4,"DATUM       :"[170]BU$(8):[152]4
3870 [152]4,"---------------------------------------":[152]4:[160]4:[142]
3880 [141]3780
3890 [137]2700
3900 [141]3780
3910 [137]2500
3920 P$[178]"LIST":PX$[178]"":XL[178]15:YL[178]5:[141]150
3930 [153]P$[170]"ICH DRUCKE ...":[153]PX$[170]"ABBRUCH - SPACEWAIT"
3940 [129]I[178]1[164]DS
3950 [161]A$:[139]A$[178]" "[167]330
3960 IX[178]I:[141]1300
3970 [130]
3980 [137] 330
4000 P$[178]"LIST":PX$[178]"":XL[178]17:YL[178]10:[141]150
4010 [153]P$[170]"ABSAVEN DER"
4020 [153]PX$[170]"DATEI !LIST"
4030 [153]PX$[170]"-LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN<"
4040 [153]PX$[170]"BITTE GEBEN SIE"
4050 [153]PX$[170]"DEN DATEINAMEN "
4060 [153]PX$[170]"EIN !"
4070 [153]PX$[170]"TO"
4080 [153]PX$[170]"RETURNWAIT - ENDE !"
4090 P$[178]"":V[178]16:[141]40
4100 [139]BU$[178]""[167]330
4110 [159]15,8,15,"S:"[170]BU$:[160]15
4120 [159]2,8,2,BU$[170]",S,W":[152]2,DS
4130 [129]I[178]1[164]DS
4140 [152]2,TK$(I)[170][199](13)
4150 [152]2,HE$(I)[170][199](13)
4160 [152]2,NA$(I)[170][199](13)
4170 [152]2,NB$(I)[170][199](13)
4180 [152]2,NC$(I)[170][199](13)
4190 [152]2,OD$(I)[170][199](13)
4200 [152]2,ZE$(I)[170][199](13)
4210 [152]2,DA$(I)[170][199](13)
4220 [130]:[160]2:[137]330
4230 P$[178]"LIST":PX$[178]"":XL[178]17:YL[178]10:[141]150
4240 [153]P$[170]"LOADEN DER"
4250 [153]PX$[170]"DATEI !LIST"
4260 [153]PX$[170]"-LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN<"
4270 [153]PX$[170]"BITTE GEBEN SIE"
4280 [153]PX$[170]"DEN DATEINAMEN "
4290 [153]PX$[170]"EIN !"
4300 [153]PX$[170]"TO"
4310 [153]PX$[170]"RETURNWAIT - ENDE !"
4320 P$[178]"":V[178]16:[141]40
4330 [139]BU$[178]""[167]330
4335 [137]4550
4340 [159]2,8,2,BU$[170]",S,R":[132]2,DS
4350 [129]I[178]1[164]DS
4360 [132]2,TK$(I)
4370 [132]2,HE$(I)
4380 [132]2,NA$(I)
4390 [132]2,NB$(I)
4400 [132]2,NC$(I)
4410 [132]2,OD$(I)
4420 [132]2,ZE$(I)
4430 [132]2,DA$(I)
4440 [130]:[160]2:[137]330
4450 [153]"LOAD"
4460 [159]1,8,0,"$":[151]781,1:[158]65478:[161]A$,A$:E$[178][199](0)
4470 [161]A$,A$,H$,L$:[139]ST[167][158]65484:[160]1:[137]4520
4480 [153][198](H$[170]E$)[170]256[172][198](L$[170]E$);
4490 [161]A$,B$:[139]A$[167][153]A$B$;:[137]4490
4500 [153]A$:[137]4470
4510 [160]1
4520 [153]"DEF TASTE DRUECKEN !"
4530 [161]A$:[139]A$[178]""[167]4530
4540 [137] 330
4550 [159]2,8,2,BU$[170]",S,R":[160]2
4560 [159]15,8,15:[132]15,NR,FT$,TR,SK:[160]15
4570 [139]NR[179][177]0[167]4590
4580 [137] 4340
4590 P$[178]"POKE":PX$[178]"":XL[178]15:YL[178]1:[141]150
4600 [153]P$[170]"FEHLEINGABE !"
4610 [161]A$:[139]A$[178]""[167]4610
4620 [137]4230